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-- Listlnterface.mesa; modified by Sandman, April 15, 1978 12:28 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
CommanderDef s: FROM "commanderdef s M , 
IODefs: FROM "iodefs", 
ListerDefs: FROM "1 isterdef s" , 
OutputDefs: FROM "outputdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s f \ 
SymbolTableDefs: FROM "symbol tabledefs" , 
SymDefs: FROM "symdefs"; 

DEFINITIONS FROM ListerDefs, OutputDefs, SymDefs; 

Listlnterface: PROGRAM IMPORTS CommanderDef s , IODefs, ListerDefs, OutputDefs, SegmentDefs, StringDefs, 
"♦SymbolTableDefs 

EXPORTS ListerDefs = 

BEGIN 

FileSegmentHandle: TYPE » SegmentDefs . FileSegmentHandle; 

FileHandle: TYPE = SegmentDefs . FileHandle; 

symbols : SymbolTableDefs .Symbol Tab! eB as e; 

Printlnterface: PROCEDURE » 
BEGIN OPEN symbols; 
sei: ISEIndex; 
number: NumberFormat ■ NumberFormat[10 , FALSE, FALSE, 4]; 

FOR sei <- FirstCtxSe[stHandle.outerCtx] , NextSe[sei] 
UNTIL sei = ISENull DO 
IF (seb+UnderType[(seb+sei ) . idtype]) . typetag * transfer THEN 
SELECT XferMode[(seb+sei). idtype] FROM 
procedure, signal, error, program => 
BEGIN 

Put Number [LOOPHOLE [(seb+sei ) . id value] , number] ; 
PutString[" — "]; 
PrintSei[sei]; 
PutString[": "]; 

PutModeName[XferMode[(seb+sei) . idtype]]; 
PutChar[IODefs.CR]; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

ModePrintName: ARRAY TransferMode OF STRING = [ 

"PROCEDURE" , "PORT", "SIGNAL", "ERROR", "PROCESS", "PROGRAM", "NONE"]; 

PutModeName: PROCEDURE[n: TransferMode] « 
BEGIN 

PutString[ModePrintName[n]]; RETURN 
END; 

Interface: PROCEDURE[root: STRING] = 
BEGIN OPEN StringDefs, SegmentDefs; 
i: CARDINAL; 
defs: BOOLEAN <- FALSE; 
bcdFile: STRING <- [40]; 
sseg: FileSegmentHandle; 
AppendString[bcd File, root]; 
FOR i IN [0. .bcdFile. length) DO 

IF bcdFile[i] = ' . THEN EXIT; 

REPEAT FINISHED => AppendStr ing[bcdFil e , " . bed"] ; 

ENDLOOP; 
BEGIN 
[symbols: sseg] <- Load[bcdFile ! 

NoFGT => RESUME; 

NoCode »> BEGIN defs <- TRUE; RESUME END; 

NoSymbols, IncorrectVersion , Mul tip! eModules a > GOTO badformat; 

SegmentDefs . FileNameError => GOTO badname]; 
IF -defs THEN GOTO badformat; 
symbol s«-SymbolTabl eDef s .AcquireSymbolTable[ 

Symbol Tab 1 eDef s . Tab leForSegment[ sseg]] ; 



Listlnterface.mesa 2-Sep-78 18:18:51 Page 



ListerDefs . Set Rout ineSymbol s[ symbol s] ; 

Open0utput[root, ". il"]; 

WriteF1leID[]; 

Printlnterf ace[]; 

Symbol Tab! eDefs . ReleaseSymbol Tab! e[ symbols] ; 

SegmentDef s . DeleteFileSegment[sseg] ; 

C1ose0utput[]; 

EXITS 

badformat »> IODef s .WriteString["Bad Format I"]; 

badname »> IODef s ,WriteString["File Not Found!"]; 
END; 
END; 

command: Command erDef s.CommandBlockHandle; 

command <- CommanderDef s.AddCommand[" Interface" ,L00PH0LE[ Interface] , 1] ; 
command. params[0] <- [type: string, prompt: "Filename"]; 

END, . . 



